home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue45 / Clinic / NoDUNBox.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-11-02  |  1.2 KB  |  44 lines
  1. unit NoDUNBox;
  2.  
  3. interface
  4.  
  5. implementation
  6.  
  7. uses
  8.   Registry, CorbaObj;
  9.  
  10. const
  11.   Path = 'Software\Microsoft\Windows\CurrentVersion\Internet Settings';
  12.   EnableAutoDial = 'EnableAutoDial';
  13.   DisableIt: Longint = 0;
  14. var
  15.   EnableIt: Longint;
  16.   ChangeIt: Boolean;
  17. initialization
  18.   //We're gonna play with the registry
  19.   with TRegistry.Create() do
  20.   try
  21.     //Flag for later on
  22.     ChangeIt := False;
  23.     //Do we have these Internet settings?
  24.     if OpenKey(Path, False) then
  25.     begin
  26.       //Check the AutoConnect option
  27.       ReadBinaryData(EnableAutoDial, EnableIt, SizeOf(EnableIt));
  28.       //If it is on, we will turn it off
  29.       ChangeIt := EnableIt <> DisableIt;
  30.       if ChangeIt then
  31.         WriteBinaryData(EnableAutoDial, DisableIt, SizeOf(DisableIt));
  32.     end;
  33.     //We call this now to prevent a minor delay later on
  34.     //when CORBA stuff actually happens, but primarily so we
  35.     //can prevent the Dial-Up Networking box if necessary
  36.     CorbaInitialize;
  37.     //If we changed something, put it back to how it was
  38.     if ChangeIt then
  39.       WriteBinaryData(EnableAutoDial, EnableIt, SizeOf(EnableIt))
  40.   finally
  41.     Free
  42.   end
  43. end.
  44.